home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Demos / Widget / Wlabel.stklos < prev    next >
Encoding:
Text File  |  1995-08-23  |  1.1 KB  |  35 lines
  1. ;;;;
  2. ;;;; STk adaptation of the Tk widget demo.
  3. ;;;;
  4. ;;;; This demonstration script creates a toplevel window containing
  5. ;;;; several label widgets.
  6. ;;;;
  7.  
  8. (require "Button")
  9.  
  10. (define (demo-label)
  11.   (let* ((w     (make-demo-toplevel "label"
  12.                     "Label Demonstration"  
  13.                     "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right.  Labels are pretty boring because you can't do anything with them."))
  14.      (left  (make <Frame> :parent w))
  15.      (right (make <Frame> :parent w)))
  16.     
  17.     ;; The labels on the left
  18.     (pack (make <Label> :parent left :text "First label")
  19.       (make <Label> :parent left :text "Second label, raised" :relief "raised")
  20.       (make <Label> :parent left :text "Third label, sunken"  :relief "sunken")
  21.       :side "top"
  22.       :expand #t
  23.       :pady 2
  24.       :anchor "w")
  25.  
  26.     ;; labels on the right
  27.     (pack (make <Label> :parent right :border-width 2 :relief "sunken"
  28.         :bitmap (string-append "@" *STk-images* "face"))
  29.       (make <Label> :parent right :text "Tcl/Tk Proprietor")
  30.       :side "top")
  31.  
  32.     (pack left right :side "left"   :expand #t :padx 10 :pady 10 :fill "both")))
  33.  
  34.  
  35.